home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Reference / XrefTextPack / XrefText⁄M / XrefText_M / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1988-05-07  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>13</cardCount>
  7.     <cardID>4144</cardID>
  8.     <listID>3862</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstack
  17. go to card Index
  18. global prioruserlevel
  19. get the userLevel
  20. put it into prioruserlevel
  21. set the userLevel to 5
  22. -- create the menus
  23. --  keep the "handles" to the menus in these globals
  24. global menu1
  25. put NewMenu("XrefText/M","Go To Reference","Create Reference",¬¨
  26. "(-","Back Up","Back To Index","(-","New XrefText Stack",¬¨
  27. "Toggle Picture","Import Text","Output","(-","XrefText-M Help")into menu1
  28. if menu1 is 0 then answer("Unable to make menu 'BEEP'") with "Drat"
  29. end openstack
  30.  
  31. on closestack
  32. global prioruserlevel
  33. set the userLevel to prioruserlevel
  34. set the loc of msg to 22,300
  35. --  delete the menus we've created using
  36. --the globals saved in openStack
  37. global menu1
  38. put DeleteMenu(menu1) into menu1
  39. --  clearing global for safety
  40. end closestack
  41.  
  42. on doMenu which
  43. --  get our menu items from doMenu before HyperCard does...
  44. global menu1, menu2
  45. -- for CheckMenu and EnableMenu below
  46. if which is "Go To Reference" then
  47. put the selection into holder
  48. push card
  49. visual effect wipe right to black
  50. visual effect wipe left
  51. find holder in field keywords
  52. if the result is not empty then
  53. answer "No match for keyword " &quote& holder&quote
  54. pop card
  55. end if
  56. else if which is "Create Reference" then
  57. put the selection into holder
  58. type ">" & holder & "<"
  59. push card
  60. find holder in field keywords
  61. if the result is not empty then
  62. doMenu New Card
  63. put holder into field keywords
  64. set the name of this card to holder
  65. get the number of lines in card field finder of card theIndex
  66. put holder into line it+1 of card field finder of card theIndex
  67. else
  68. put the length of holder into hl
  69. put the length of word 1 of field keywords into kl
  70. if hl<>kl then
  71. answer "Close match but not exact!" with "Good Enough" or¬¨
  72. "New Card"
  73. if it contains "New" then
  74. set lockscreen to true
  75. go prev
  76. doMenu New Card
  77. put holder into field keywords
  78. set the name of this card to holder
  79. get the number of lines in card field finder of card theIndex
  80. put holder into line it+1 of card field finder of card theIndex
  81. set lockscreen to false
  82. end if
  83. end if
  84. end if
  85. else if which is "Back Up" then
  86. if the number of this card = 1 then
  87. answer "Careful. You might leave this stack." with Cancel or OK
  88. if it = "OK" then
  89. visual effect wipe left to black
  90. visual effect wipe right
  91. go back
  92. else
  93. exit doMenu
  94. end if
  95. else
  96. visual effect wipe left to black
  97. visual effect wipe right
  98. pop card
  99. end if
  100. else if which is "Back To Index" then
  101. if the number of this card > 1 then
  102. -- visual effect wipe down to black
  103. visual effect iris close to white
  104. visual effect dissolve
  105. go to first card
  106. else
  107. play boing
  108. answer "You're already at the first card!"
  109. end if
  110. else if which is "XrefText-M Help" then
  111. visual effect dissolve
  112. go card ayuda
  113. else if which is "Toggle Picture" then
  114. if the number of this card > 2 then
  115. answer "Change to Picture or Text?" with Text or Picture
  116. if it contains "Text" then
  117. show tool window
  118. choose select tool
  119. doMenu Select All
  120. doMenu Clear Picture
  121. choose browse tool
  122. hide tool window
  123. hide pattern window
  124. else
  125. show pattern window
  126. show tool window
  127. choose rectangle tool
  128. set filled to false
  129. drag from (item 1 of the rect of field keywords), (item 2 of the¬¨
  130. rect of field keywords) to (item 3 of the rect of field¬¨
  131. keywords), (item 4 of the rect of field keywords)
  132. drag from 0,28 to 512,342
  133. choose bucket tool
  134. set pattern to 1
  135. click at 250,250
  136. choose text tool
  137. set the textfont to Geneva
  138. set the textsize to 9
  139. click at 10,320
  140. type "Don't use eraser. Use white brush instead."
  141. click at 10,330
  142. type "Choosing Browse Tool will show XrefText/M menu."
  143. choose brush tool
  144. end if
  145. else
  146. play boing
  147. answer "Uh-uh. You don't want to change this card."
  148. end if
  149. else if which is "Import Text" then
  150. if the number of this card &g